home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / STAND.ARC / IO.OUT < prev    next >
Text File  |  1990-03-28  |  15KB  |  319 lines
  1.  ----> &null
  2. f := open("foo.baz","w") ----> file(foo.baz)
  3. write(f,"hello world") ----> "hello world"
  4. close(f) ----> file(foo.baz)
  5. F := open("io.icn") ----> file(io.icn)
  6. )g,f,e,d,c,b,a(yarra drocer
  7.  
  8. )(1p erudecorp
  9. )"enon" | )(egami," >---- "(etirw   
  10. )"enon" | ))"w","zab.oof"(nepo =: f(egami," >---- )"\w"\,"\zab.oof"\(nepo =: f"(etirw   
  11. )"enon" | ))"dlrow olleh",f(etirw(egami," >---- )"\dlrow olleh"\,f(etirw"(etirw   
  12. )"enon" | ))f(esolc(egami," >---- )f(esolc"(etirw   
  13. )"enon" | ))"nci.oi"(nepo =: F(egami," >---- )"\nci.oi"\(nepo =: F"(etirw   
  14. )"enon" | )))F!(esrever(etirw yreve(egami," >---- ))F!(esrever(etirw yreve"(etirw   
  15. )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw   
  16. )"enon" | ))"nci.oi"(nepo =: F(egami," >---- )"\nci.oi"\(nepo =: F"(etirw   
  17. )"enon" | )))F!(pam(etirw yreve(egami," >---- ))F!(pam(etirw yreve"(etirw   
  18. )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw   
  19. )"enon" | ))"nci.oi"(nepo =: F(egami," >---- )"\nci.oi"\(nepo =: F"(etirw   
  20. dne
  21.  
  22. )(2p erudecorp
  23. )"enon" | )))"-----" || tesc&,"uoiea" || tesc&,F!(pam(etirw yreve(egami," >---- ))"\-----"\ || tesc&,"\uoiea"\ || tesc&,F!(pam(etirw yreve"(etirw   
  24. )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw   
  25. )"enon" | ))"nci.oi"(nepo =: F(egami," >---- )"\nci.oi"\(nepo =: F"(etirw   
  26. )"enon" | )))"uoiea" || tesc&,"     " || tesc&,F!(pam(etirw yreve(egami," >---- ))"\uoiea"\ || tesc&,"\     "\ || tesc&,F!(pam(etirw yreve"(etirw   
  27. )"enon" | ))F(esolc(egami," >---- )F(esolc"(etirw   
  28. )"enon" | ))"nci.oi"(nepo =: f(egami," >---- )"\nci.oi"\(nepo =: f"(etirw   
  29. )"enon" | )))f(sdaer(setirw elihw(egami," >---- ))f(sdaer(setirw elihw"(etirw   
  30. )"enon" | ))f(esolc(egami," >---- )f(esolc"(etirw   
  31. )"enon" | ))"nci.oi"(nepo =: f(egami," >---- )"\nci.oi"\(nepo =: f"(etirw   
  32. )"enon" | )))01,f(sdaer(setirw elihw(egami," >---- ))01,f(sdaer(setirw elihw"(etirw   
  33. )"enon" | ))"nci.oi"(nepo =: f(egami," >---- )"\nci.oi"\(nepo =: f"(etirw   
  34. dne
  35.  
  36. )(3p erudecorp
  37. )"enon" | )))f(daer(etirw elihw(egami," >---- ))f(daer(etirw elihw"(etirw   
  38. )"enon" | ))f(esolc(egami," >---- )f(esolc"(etirw   
  39. dne
  40.  
  41. )(niam erudecorp
  42. )(1p   
  43. )(2p   
  44. )(3p   
  45. dne
  46.  
  47. f ,F labolg
  48. every write(reverse(!F)) ----> none
  49. close(F) ----> file(io.icn)
  50. F := open("io.icn") ----> file(io.icn)
  51. record array(a,b,c,d,e,f,g)
  52.  
  53. procedure p1()
  54.    write(" ----> ",image() | "none")
  55.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  56.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  57.    write("close(f) ----> ",image(close(f)) | "none")
  58.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  59.    write("every write(reverse(!f)) ----> ",image(every write(reverse(!f))) | "none")
  60.    write("close(f) ----> ",image(close(f)) | "none")
  61.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  62.    write("every write(map(!f)) ----> ",image(every write(map(!f))) | "none")
  63.    write("close(f) ----> ",image(close(f)) | "none")
  64.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  65. end
  66.  
  67. procedure p2()
  68.    write("every write(map(!f,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!f,&cset || "aeiou",&cset || "-----"))) | "none")
  69.    write("close(f) ----> ",image(close(f)) | "none")
  70.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  71.    write("every write(map(!f,&cset || \"     \",&cset || \"aeiou\")) ----> ",image(every write(map(!f,&cset || "     ",&cset || "aeiou"))) | "none")
  72.    write("close(f) ----> ",image(close(f)) | "none")
  73.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  74.    write("while writes(reads(f)) ----> ",image(while writes(reads(f))) | "none")
  75.    write("close(f) ----> ",image(close(f)) | "none")
  76.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  77.    write("while writes(reads(f,10)) ----> ",image(while writes(reads(f,10))) | "none")
  78.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  79. end
  80.  
  81. procedure p3()
  82.    write("while write(read(f)) ----> ",image(while write(read(f))) | "none")
  83.    write("close(f) ----> ",image(close(f)) | "none")
  84. end
  85.  
  86. procedure main()
  87.    p1()
  88.    p2()
  89.    p3()
  90. end
  91.  
  92. global f, f
  93. every write(map(!F)) ----> none
  94. close(F) ----> file(io.icn)
  95. F := open("io.icn") ----> file(io.icn)
  96. r-c-rd -rr-y(-,b,c,d,-,f,g)
  97.  
  98. pr-c-d-r- p1()
  99.    wr-t-(" ----> ",-m-g-() | "n-n-")
  100.    wr-t-("f := -p-n(\"f--.b-z\",\"w\") ----> ",-m-g-(f := -p-n("f--.b-z","w")) | "n-n-")
  101.    wr-t-("wr-t-(f,\"h-ll- w-rld\") ----> ",-m-g-(wr-t-(f,"h-ll- w-rld")) | "n-n-")
  102.    wr-t-("cl-s-(f) ----> ",-m-g-(cl-s-(f)) | "n-n-")
  103.    wr-t-("F := -p-n(\"--.-cn\") ----> ",-m-g-(F := -p-n("--.-cn")) | "n-n-")
  104.    wr-t-("-v-ry wr-t-(r-v-rs-(!F)) ----> ",-m-g-(-v-ry wr-t-(r-v-rs-(!F))) | "n-n-")
  105.    wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
  106.    wr-t-("F := -p-n(\"--.-cn\") ----> ",-m-g-(F := -p-n("--.-cn")) | "n-n-")
  107.    wr-t-("-v-ry wr-t-(m-p(!F)) ----> ",-m-g-(-v-ry wr-t-(m-p(!F))) | "n-n-")
  108.    wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
  109.    wr-t-("F := -p-n(\"--.-cn\") ----> ",-m-g-(F := -p-n("--.-cn")) | "n-n-")
  110. -nd
  111.  
  112. pr-c-d-r- p2()
  113.    wr-t-("-v-ry wr-t-(m-p(!F,&cs-t || \"-----\",&cs-t || \"-----\")) ----> ",-m-g-(-v-ry wr-t-(m-p(!F,&cs-t || "-----",&cs-t || "-----"))) | "n-n-")
  114.    wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
  115.    wr-t-("F := -p-n(\"--.-cn\") ----> ",-m-g-(F := -p-n("--.-cn")) | "n-n-")
  116.    wr-t-("-v-ry wr-t-(m-p(!F,&cs-t || \"     \",&cs-t || \"-----\")) ----> ",-m-g-(-v-ry wr-t-(m-p(!F,&cs-t || "     ",&cs-t || "-----"))) | "n-n-")
  117.    wr-t-("cl-s-(F) ----> ",-m-g-(cl-s-(F)) | "n-n-")
  118.    wr-t-("f := -p-n(\"--.-cn\") ----> ",-m-g-(f := -p-n("--.-cn")) | "n-n-")
  119.    wr-t-("wh-l- wr-t-s(r--ds(f)) ----> ",-m-g-(wh-l- wr-t-s(r--ds(f))) | "n-n-")
  120.    wr-t-("cl-s-(f) ----> ",-m-g-(cl-s-(f)) | "n-n-")
  121.    wr-t-("f := -p-n(\"--.-cn\") ----> ",-m-g-(f := -p-n("--.-cn")) | "n-n-")
  122.    wr-t-("wh-l- wr-t-s(r--ds(f,10)) ----> ",-m-g-(wh-l- wr-t-s(r--ds(f,10))) | "n-n-")
  123.    wr-t-("f := -p-n(\"--.-cn\") ----> ",-m-g-(f := -p-n("--.-cn")) | "n-n-")
  124. -nd
  125.  
  126. pr-c-d-r- p3()
  127.    wr-t-("wh-l- wr-t-(r--d(f)) ----> ",-m-g-(wh-l- wr-t-(r--d(f))) | "n-n-")
  128.    wr-t-("cl-s-(f) ----> ",-m-g-(cl-s-(f)) | "n-n-")
  129. -nd
  130.  
  131. pr-c-d-r- m--n()
  132.    p1()
  133.    p2()
  134.    p3()
  135. -nd
  136.  
  137. gl-b-l F, f
  138. every write(map(!F,&cset || "aeiou",&cset || "-----")) ----> none
  139. close(F) ----> file(io.icn)
  140. F := open("io.icn") ----> file(io.icn)
  141. recorduarray(a,b,c,d,e,f,g)
  142.  
  143. procedureup1()
  144. uuuwrite("u---->u",image()u|u"none")
  145. uuuwrite("fu:=uopen(\"foo.baz\",\"w\")u---->u",image(fu:=uopen("foo.baz","w"))u|u"none")
  146. uuuwrite("write(f,\"hellouworld\")u---->u",image(write(f,"hellouworld"))u|u"none")
  147. uuuwrite("close(f)u---->u",image(close(f))u|u"none")
  148. uuuwrite("Fu:=uopen(\"io.icn\")u---->u",image(Fu:=uopen("io.icn"))u|u"none")
  149. uuuwrite("everyuwrite(reverse(!F))u---->u",image(everyuwrite(reverse(!F)))u|u"none")
  150. uuuwrite("close(F)u---->u",image(close(F))u|u"none")
  151. uuuwrite("Fu:=uopen(\"io.icn\")u---->u",image(Fu:=uopen("io.icn"))u|u"none")
  152. uuuwrite("everyuwrite(map(!F))u---->u",image(everyuwrite(map(!F)))u|u"none")
  153. uuuwrite("close(F)u---->u",image(close(F))u|u"none")
  154. uuuwrite("Fu:=uopen(\"io.icn\")u---->u",image(Fu:=uopen("io.icn"))u|u"none")
  155. end
  156.  
  157. procedureup2()
  158. uuuwrite("everyuwrite(map(!F,&csetu||u\"aeiou\",&csetu||u\"-----\"))u---->u",image(everyuwrite(map(!F,&csetu||u"aeiou",&csetu||u"-----")))u|u"none")
  159. uuuwrite("close(F)u---->u",image(close(F))u|u"none")
  160. uuuwrite("Fu:=uopen(\"io.icn\")u---->u",image(Fu:=uopen("io.icn"))u|u"none")
  161. uuuwrite("everyuwrite(map(!F,&csetu||u\"uuuuu\",&csetu||u\"aeiou\"))u---->u",image(everyuwrite(map(!F,&csetu||u"uuuuu",&csetu||u"aeiou")))u|u"none")
  162. uuuwrite("close(F)u---->u",image(close(F))u|u"none")
  163. uuuwrite("fu:=uopen(\"io.icn\")u---->u",image(fu:=uopen("io.icn"))u|u"none")
  164. uuuwrite("whileuwrites(reads(f))u---->u",image(whileuwrites(reads(f)))u|u"none")
  165. uuuwrite("close(f)u---->u",image(close(f))u|u"none")
  166. uuuwrite("fu:=uopen(\"io.icn\")u---->u",image(fu:=uopen("io.icn"))u|u"none")
  167. uuuwrite("whileuwrites(reads(f,10))u---->u",image(whileuwrites(reads(f,10)))u|u"none")
  168. uuuwrite("fu:=uopen(\"io.icn\")u---->u",image(fu:=uopen("io.icn"))u|u"none")
  169. end
  170.  
  171. procedureup3()
  172. uuuwrite("whileuwrite(read(f))u---->u",image(whileuwrite(read(f)))u|u"none")
  173. uuuwrite("close(f)u---->u",image(close(f))u|u"none")
  174. end
  175.  
  176. procedureumain()
  177. uuup1()
  178. uuup2()
  179. uuup3()
  180. end
  181.  
  182. globaluF,uf
  183. every write(map(!F,&cset || "     ",&cset || "aeiou")) ----> none
  184. close(F) ----> file(io.icn)
  185. f := open("io.icn") ----> file(io.icn)
  186. record array(a,b,c,d,e,f,g)
  187.  
  188. procedure p1()
  189.    write(" ----> ",image() | "none")
  190.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  191.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  192.    write("close(f) ----> ",image(close(f)) | "none")
  193.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  194.    write("every write(reverse(!F)) ----> ",image(every write(reverse(!F))) | "none")
  195.    write("close(F) ----> ",image(close(F)) | "none")
  196.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  197.    write("every write(map(!F)) ----> ",image(every write(map(!F))) | "none")
  198.    write("close(F) ----> ",image(close(F)) | "none")
  199.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  200. end
  201.  
  202. procedure p2()
  203.    write("every write(map(!F,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!F,&cset || "aeiou",&cset || "-----"))) | "none")
  204.    write("close(F) ----> ",image(close(F)) | "none")
  205.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  206.    write("every write(map(!F,&cset || \"     \",&cset || \"aeiou\")) ----> ",image(every write(map(!F,&cset || "     ",&cset || "aeiou"))) | "none")
  207.    write("close(F) ----> ",image(close(F)) | "none")
  208.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  209.    write("while writes(reads(f)) ----> ",image(while writes(reads(f))) | "none")
  210.    write("close(f) ----> ",image(close(f)) | "none")
  211.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  212.    write("while writes(reads(f,10)) ----> ",image(while writes(reads(f,10))) | "none")
  213.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  214. end
  215.  
  216. procedure p3()
  217.    write("while write(read(f)) ----> ",image(while write(read(f))) | "none")
  218.    write("close(f) ----> ",image(close(f)) | "none")
  219. end
  220.  
  221. procedure main()
  222.    p1()
  223.    p2()
  224.    p3()
  225. end
  226.  
  227. global F, f
  228. while writes(reads(f)) ----> none
  229. close(f) ----> file(io.icn)
  230. f := open("io.icn") ----> file(io.icn)
  231. record array(a,b,c,d,e,f,g)
  232.  
  233. procedure p1()
  234.    write(" ----> ",image() | "none")
  235.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  236.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  237.    write("close(f) ----> ",image(close(f)) | "none")
  238.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  239.    write("every write(reverse(!F)) ----> ",image(every write(reverse(!F))) | "none")
  240.    write("close(F) ----> ",image(close(F)) | "none")
  241.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  242.    write("every write(map(!F)) ----> ",image(every write(map(!F))) | "none")
  243.    write("close(F) ----> ",image(close(F)) | "none")
  244.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  245. end
  246.  
  247. procedure p2()
  248.    write("every write(map(!F,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!F,&cset || "aeiou",&cset || "-----"))) | "none")
  249.    write("close(F) ----> ",image(close(F)) | "none")
  250.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  251.    write("every write(map(!F,&cset || \"     \",&cset || \"aeiou\")) ----> ",image(every write(map(!F,&cset || "     ",&cset || "aeiou"))) | "none")
  252.    write("close(F) ----> ",image(close(F)) | "none")
  253.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  254.    write("while writes(reads(f)) ----> ",image(while writes(reads(f))) | "none")
  255.    write("close(f) ----> ",image(close(f)) | "none")
  256.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  257.    write("while writes(reads(f,10)) ----> ",image(while writes(reads(f,10))) | "none")
  258.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  259. end
  260.  
  261. procedure p3()
  262.    write("while write(read(f)) ----> ",image(while write(read(f))) | "none")
  263.    write("close(f) ----> ",image(close(f)) | "none")
  264. end
  265.  
  266. procedure main()
  267.    p1()
  268.    p2()
  269.    p3()
  270. end
  271.  
  272. global F, f
  273. while writes(reads(f,10)) ----> none
  274. f := open("io.icn") ----> file(io.icn)
  275. record array(a,b,c,d,e,f,g)
  276.  
  277. procedure p1()
  278.    write(" ----> ",image() | "none")
  279.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  280.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  281.    write("close(f) ----> ",image(close(f)) | "none")
  282.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  283.    write("every write(reverse(!F)) ----> ",image(every write(reverse(!F))) | "none")
  284.    write("close(F) ----> ",image(close(F)) | "none")
  285.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  286.    write("every write(map(!F)) ----> ",image(every write(map(!F))) | "none")
  287.    write("close(F) ----> ",image(close(F)) | "none")
  288.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  289. end
  290.  
  291. procedure p2()
  292.    write("every write(map(!F,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!F,&cset || "aeiou",&cset || "-----"))) | "none")
  293.    write("close(F) ----> ",image(close(F)) | "none")
  294.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  295.    write("every write(map(!F,&cset || \"     \",&cset || \"aeiou\")) ----> ",image(every write(map(!F,&cset || "     ",&cset || "aeiou"))) | "none")
  296.    write("close(F) ----> ",image(close(F)) | "none")
  297.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  298.    write("while writes(reads(f)) ----> ",image(while writes(reads(f))) | "none")
  299.    write("close(f) ----> ",image(close(f)) | "none")
  300.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  301.    write("while writes(reads(f,10)) ----> ",image(while writes(reads(f,10))) | "none")
  302.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  303. end
  304.  
  305. procedure p3()
  306.    write("while write(read(f)) ----> ",image(while write(read(f))) | "none")
  307.    write("close(f) ----> ",image(close(f)) | "none")
  308. end
  309.  
  310. procedure main()
  311.    p1()
  312.    p2()
  313.    p3()
  314. end
  315.  
  316. global F, f
  317. while write(read(f)) ----> none
  318. close(f) ----> file(io.icn)
  319.